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SUMMARY 


A Semantics Specification Package (DBPSSP) for the Intel Data Base Processor 
(DBP) is defined. DBPSSP serves as a collection of cross-assembly tools that allow 
the analyst to assemble request blocks on the host computer for passage to the 
DBP. The assembly tools discussed in this report may be effectively used in 
conjunction with a DBP-compatible data communications protocol to form a query 
processor, precompiler, or file management system for the database processor. The 
source modules representing the components of DBPSSP are fully commented and 
included as an appendix to this report. 


INTRODUCTION 

DBPSSP (Data Base Processor Semantics Specification Package) is the second 
layer of the HILDA system. HILDA ("High Level Data Abstraction System") is a three 
layer data base management system supporting the data abstraction freatures of the 
Intel Data Base Processor (DBP). The purpose of HILDA is the establishment of a 
flexible method for efficiently communicating with the Intel Data Base Processor. 
Each layer within HILDA plays a specific role during this communication. These 
roles may be Seen in figures 1 and 2. Figure 1 displays the method by which one 
may flexibly modify the syntax and semantics for the data base machine. Figure 2 
shows the anatomy of a sample query made to the data base processor. The first 
layer within HILDA is SPP (Service Port Protocol) [1] and serves as the underlying 
data communications protocol allowing full access to the DBP data base management 
functionality. It is important to note that even though DBPSSP may be used with 
SPP, the assembly primitives and procedures within DBPSSP are independent of SPP. 
That is, another data communications protocol may be effectively used with DBPSSP 
if necessary. The purpose of this report is to document the design and implementa- 
tion details associated with DBPSSP. A listing of the source modules is presented 
in appendix A. 


AN OVERVIEW OF DBPSSP 

DBPSSP is a collection of assembly tools used on the host computer to 
construct request modules that are to be sent to the Intel DBP. DBPSSP serves as a 





cross assembler in that Intel DBP "machine code" is assembled on the host computer 
and then directed to the data base machine for execution. Each request module sent 
to the DBP is of the form shown in figure 3. Every module contains an arbitrary 
number of commands. A command is always composed of exactly three primary 
sections: 

1. Opcode Byte - the operation to be performed on the DBP (fetch, store, 
define database, etc.) 

2. Parameters/Data - parameters and data which relate to the operation being 
performed. 

3. Terminator Bytes - two bytes which represent the end of the current 
operation to be performed by the DBP. 

This report outlines the capabilities and suggested usage for the DBPSSP 
component modules. DBPSSP should be thought of as a collection of procedures (or 
subroutines) that permit the software developer to easily construct data base 
requests to the Intel DBP. In this manner the analyst is free to develop a 
flexible front-end interpreter or compiler to the data base machine. Some 
highlights of DBPSSP are as follows: 

1. Relative and Absolute Offsets - When assembling machine code for the DBP, it is 
necessary to "place" the code at the proper offset within the request module. 

In many cases one may build the request module sequentially from start to 
finish. This sequential mode of assembling is termed "relative" offsetting 
since the current assembled code is simply "tacked on" to the previously 
assembled code. One may choose, however, to assemble code at a specific offset 
within the command block. This random mode of assembling is termed "absolute" 
offsetting. The mode used by the software developer depends on the front-end 
driver accessing the assembly tools. A particular parsing method (for a query 
language, for instance) used for constructing a driver may dictate the use of 
one offset method over another. 

2. Primitive and High-Order Procedures - DBPSSP is composed of a set of general 

primitive procedures and a set of high-order procedures which are based on the 
primitives. The high-order procedures are similar in appearance to assembler 
mnemonics for a given microprocessor: they have short names and contain few 

operands. 
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3. Macro Capability - Since DBPSSP is a set of procedures, it is straight-forward 
and useful to develop new "macros" (or parameterized procedures) which access 
the fundamental DBPSSP procedures. 


THE COMPONENTS OF DBPSSP 

DBPSSP is composed of a minimal set of general primitives and a set of higher 
order procedures. Each set is divided into "Control" modules and "Assembly" 
modules. The control modules effect the data communications options while the 
assembly modules are pure assembly directives pertaining specifically to the 
construction of the command blocks. The control modules are discussed in reference 
1. Modules that are dependent on the specific data communications protocol used 
are denoted "(D)" next to the respective module name. Each module set is depicted 
below: 

PRIMITIVES 

INIT_COMM(D) - initialize DBP communications 

DBP_SEND(D) - send a request module to the DBP 

DBP_RECV(D) - receive a response module from the DBP 

TRACE_START(D) - start tracing 

TRACE_STOP(D) - stop tracing 

PERFORM_START - start performance monitoring 

PERF0RM_ST0P - stop performance monitoring (gather statistics) 

DBP_BEGIN - start to assemble a command block 
DBP’_BITS_BEGIN - start bit masking operations 
DBP_BITS - perform logical 'or'ing of bits 
DBP_BITS_END - end bit masking operations 
DBP'_BYTES - assemble an ASCII string 
DBP_INTEGER - assemble a 1, 2, or 4 byte integer 


HIGH-ORDER PROCEDURES 

INIT(D) - initialize DBP communications 

SEND(D) - send the built request module to the DBP 
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RECV(D) - receive a response module from the DBP 

TRON(D) - start trace 

TROFF(D) - stop trace 

PRON - start performance monitoring 

PROFF - stop performance monitoring (gather statistics) 

START - start encoding a command block 

TERMINATE - Add 2 terminator bytes to the command block 

BITSB - begin bit masking (relative offset) 

BITS - logical 'or' on command block (relative offset) 

BITSE - end bit masking (relative offset) 

BITSB_A - same as 'BITSB' (absolute offset) 

ASC - assemble an ASCII string (relative offset) 

ASC_A - same as 'ASC (absolute offset) 

INTI - assemble a 1-byte integer (relative offset) 

INT1_A - same as 'INTI' (absolute offset) 

INT2 - assemble as 2-byte integer (relative offset) 

INT2_A - same as 'INT2' (absolute offset) 

INT4 - assemble a 4-byte integer (relative offset) 

INT4_A - same as 'INT4' (absolute offset) 

Details on using the above procedures may be found in the source which is 
included as appendix A. 


THE ASSEMBLY PROCESS 

Figure 4 displays the assembly process occurring for a "REMARK <H0ST> <HELL0>" 
DBP command. It is assumed in figure 4 that the user has developed a parsing 
method which will activate the semantic assembly primitives within DBPSSP (START, 
INTI, ASC, and SEND) when the REMARK command is encountered. A more suostantial 
program is presented in appendix B that performs the conceptual DBP operations 
listed below (note that the keywords are designated using small letters): 

1. Submit keys ADMIN 

Submit the ADMIN key to the session keyring. 

2. Define database TESTING 

Define a new database called TESTING. 
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3. Keep database TESTING 

Make the database TESTING a permanent database. 

4. Define file FILEl DBPSYS 

Define a new file called FILEl on the system disk (DBPSYS). 

5. Define schema INTI int*4 INT2 int*4 INT3 int*4 FILEl 

Define a schema containing exactly three 4-byte integers (INTI, INT2, and 

INT3) for the previously defined file FILEl. 

6. Keep file FILEl 

Make the file FILEl a permanent file. 

7. List database TESTING 

Show the schema description for files within database TESTING. 

For further information on the conceptual command syntax, see the DBP 
Reference Manual [2]. The program containing the above commands is presented in 
appendix B using two languages - FORTRAN 77 and Pascal. The FORTRAN program is 
coded using the primitives, while the Pascal program uses the high-order proce- 
dures. In general, the software designer will want to use the high-order 
procedures since the high-order procedures are more functionally precise with fewer 
parameters. Note the relative compactness of the Pascal program. The assembled 
modules and received DBP responses obtained after having sent the completed 
requests to the DBP are shown at the end of appendix B. 


CONCLUDING REMARKS 

The procedures within DBPSSP provide the developer with all of the necessary 
tools to construct an interactive query processor, compiler, or file management 
system for the Intel DBP. DBPSSP permits the definition of a complete semantics 
specification associated with any given command or language syntax that the 
developer may choose. For example, the third layer of HILDA in conjunction with a 
parser generator package specifies the syntax and semantics for an interpretive 
language "DBPQL" using DBPSSP. 
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APPENDIX A - DBPSSP Source 


DBPSSP has been implemented using VAX VMS FORTRAN 77. The file "DBPSSP. FOR" 
contains the high-order procedures which will be used most often. 
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DBPSSP.F0RJ2 


S--JUL-1983 12:23 


Psae 1 


c 

C CONTENTS : 

C 

C THIS FILE CONTAINS A SET OF ASSEMBLY TOOLS NECESSARY 
C TO EFFICIENTLY CONSTRUCT REQUEST MODULES FOR THE 
DBP. EACH PROCEDURE ACTIVATES ONE OR MORE PRIMITIVE 
ASSEMBLY PROCEDURES. 

DATE : 

APRIL 20>1983 


SUBROUTINE INIT 

INITIALIZE DBP COMMUNICATIONS VIA 
SPP( SERVICE PORT PROTOCOL ) 


CALL INIT.COMM 

RETURN 

END 

SUBROUTINE START 

START ENCODING A REQUEST NODULE 

CALL DBP.BEGIN 

RETURN 

END 

SUBROUTINE BITSB 


PREPARE FOR INSERTING AN 'OR'ED VALUE WITHIN 
THE REQUEST MODULE 


CALL DBP_BITS_BEGIN<-1) 

RETURN 

END 

SUBROUTINE BITSB_A< OFFSET ) 


*** ABSOLUTE OFFSET *** 

PREPARE FOR INSERTING AN 'OR'ED VALUE WITHIN 
THE REQUEST MODULE 


CALL DBP_BITS_BEGIN( OFFSET ) 

RETURN 

END 

SUBROUTINE BITS< BYTE_VALUE ) 


PERFORM AN 'OR' OPERATION OF 'BYTE_VALUE' ON THE 
CURRENT BYTE WITHIN THE REQUEST MODULE. 


BYTE BYTE..VALUE 

CALL DBP_BITS( BYTE_VALUE ) 

RETURN 

END 

SUBROUTINE BITSE 


STOP THE 'OR 'IMG PROCESS FOR THE CURRENT BYTE BEING 
FORMED WITHIN THE REQUEST MODULE 
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DBPSSP.F0RJ2 


5-JUL-1983 12J23 


CALL DBP.BITS..END 

RETURN 

END 

SUBROUTINE ASC( STRING. LENGTH ) 

C 

C INSERT AN ASCII STRING OF LENGTH 'LENGTH' WITHIN 
C THE REQUEST MODULE. 

C ALSO PLACE THE 'LENGTH' DIRECTLY IN FRONT OF THE 
C ASCII BYTES 
C 

CHARACTERUcOlO STRING 
INTEGER!|f4 LENGTH 
C 

CALL DBP_INTEGER< -1. LENGTH.! ) 

CALL DBP_BYTES< -1 .STRING. LENGTH ) 

RETURN 

END 

SUBROUTINE ASCX< STRING. LENGTH ) 

C 

C INSERT AN ASCII STRING OF LENGTH 'LENGTH' WITHIN 
C THE REQUEST MODULE. 

C DO NOT PLACE THE 'LENGTH' WITHIN THE REQUEST MODULE 
C BEING BUILT 
C 

CHARACTER*<*) STRING 
INTEGER1K4 LENGTH 
C 

CALL DBP_BYTES< -1. STRING. LENGTH ) 

RETURN 
END 

SUBROUTINE ASC_A< OFFSET. STRING. LENGTH ) 

*** ABSOLUTE OFFSET *U 

INSERT AN ASCII STRING OF LENGTH 'LENGTH' WITHIN 
THE REQUEST MODULE. 

CHARACTER*!*) STRING 
INTEGER*4 LENGTH. OFFSET 

CALL DBP-INTEGER! OFFSET .LENGTH . 1 ) 

CALL DBP-BYTES! OFFSET+1 .STRING. LENGTH ) 

RETURN 
END 

SUBROUTINE ASCX_A< OFFSET. STRING. LENGTH ) 

*** ABSOLUTE OFFSET *** 

INSERT AN ASCII STRING OF LENGTH 'LENGTH' WITHIN 
THE REQUEST MODULE. 


CHARACTER*!*) STRING 
INTEGER*4 LENGTH. OFFSET 

CALL DBP-BYTES! OFFSET+1 .STRING.LENGTH ) 

RETURN 

END 

SUBROUTINE INTI! VALUE ) 

INSERT A ONE-BYTE INTEGER 
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DBPSSP.F0R»2 


5-JUL-1983 12:23 


Paste 3 


INTEGERUtA VALUE 

CALL DBP_INTEGER( -1*VALUE»1 ) 
RETURN 
END 

SUBROUTINE INT1_A( OFFSETfVALUE ) 

*** ABSOLUTE OFFSET Ut 

INSERT A ONE-BYTE INTEGER 

INTEGER*4 OFFSET»VALUE 
CALL DBP_INTEGER( OFFSET » VALUE f 1 ) 
RETURN 
END 

SUBROUTINE INT2( VALUE ) 

INSERT A TWO-BYTE INTEGER 
INTEGER*^ VALUE 

CALL DBP„INTEGER( -l»VALUEf2 ) 
RETURN 
END 

SUBROUTINE INT2_A< OFFSFT. VALUE ) 
*** ABSOLUTE OFFSET tU 
INSERT A TWO-BYTE INTEGER 

INTEGER*4 OFFSFTfVALUE 
CALL DBP-INTEGER( OFFSET^ VALUE.2 ) 
RETURN 
END 

SUBROUTINE INT4< VALUE ) 

INSERT A FOUR-BYTE INTEGER 
INTEGER*4 VALUE 

CALL DBP_INTEGER( -1fVALUE»4 ) 
RETURN 
END 

SUBROUTINE INT4.A( OFFSETfVALUE ) 

**» ABSOLUTE OFFSET W 

INSERT A FOUR-BYTE INTEGER 

INTEGER*4 OFFSETfVALUE 
CALL DBP-INTE6ER( OFFSETf VALIJEr4 ) 
RETURN 
END 

SUBROUTINE TRON 
C 

C START THE DIAGNOSTIC TRACE UTILITY 
C USE UNIT *9 
C 

CALL TRACE_START<9) 

RETURN 

END 

SUBROUTINE TROFF 
C 

C STOP THE TRACE UTILITY 
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DBPSSP.F0RS2 5-JUL-1983 12J23 


C 

CALL TRACE-STOP 

RETURN 

ENIi 

SUBROUTINE PRON 
C 

C START THE PERFORMANCE MONITORING UTILITY 
C 

CALL PERFORM.START 

RETURN 

END 

SUBROUTINE PROFF< CLOCK»CPU»BIO»DIO»PAGE ) 

C 

C STOP THE PERFORMANCE MONITORING UTILITY AND 
C RETRIEVE THE EXECUTION STATISTICS SINCE THE 
C LAST ACTIVATION OF 'PRON' 

C 

INTEGERS BIO, DIO. PAGE 

CALL PERFORM_STOP( CLOCK, CPU, BIO, DIO, PAGE ) 

RETURN 

END 

SUBROUTINE TERMINATE 
C 

C INSERT THE TERMINATOR BYTES INTO THE REQUEST STREAM 
C 

CALL DBP_INTEGER< -1,'FF'X,1 ) 

CALL DBP_INTEGER( -1,'00'X,1 ) 

RETURN 

END 

SUBROUTINE SEND 
C 

C SEND THE BUILT REQUEST MODULE TO THE DBP 
C 

CALL DBP-SEND 

RETURN 

END 

SUBROUTINE RECV( RESPONSE, NBYTES_RECV, MORE ) 

C 

C RECEIVE THE MESSAGE FROM THE DBP, IF 'MORE' IS 
C TRUE THEN WE SHOULD RE-ACTIVATE 'SEND' 

C 

LOGICAL MORE 
BYTE RESP0NSE(1024) 

INTE6ER*4 NBYTES-RECV 
C 

CALL DBP-RECV< RESPONSE, NBYTES..RECV, MORE ) 

RETURN 

END 

SUBROUTINE PERFON 
C 

C TURN ON THE PERFORMANCE MONITORING 
C 

LOGICAL PERF-DEBUG 
COMMON/ PERFMODE/ PERF-DEBUG 
C 

PERF-DEBUG = .TRUE. 

RETURN 

END 

SUBROUTINE PERFOFF 
C 

C TURN OFF THE PERFORMANCE MONITORING 

10 


P3£le 4 



n <n ri r> 


DBPSSP.F0Ri2 


3-JIIL-1983 12523 
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C 

LOGICAL PERF_DEBUG 
COHMON/ PERFHODE/ PERF..DEBU6 
C 

PERF.DEBUG = .FALSE. 

RETURN 

END 

SUBROUTINE TRACEON 
C 

C TURN ON THE TRACE TO DISPLAY THE ENCODED SEND 
C AND REQUEST NODULES BEING TRANSFERRED 
C 

LOGICAL DEBUG 
COMMON/DEBUGNODE/ DEBUG 
C 

DEBUG = .TRUE. 

RETURN 
END 

SUBROUTINE TRACEOFF 

TURN OFF THE TRACE TO DISPLAY ENCODED SEND 
AND REQUEST MODULES BEING TRANSFERRED 

LOGICAL DEBUG 
COMNON/DEBUGHODE/ DEBUG 


DEBUG = .FALSE. 

RETURN 

END 
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SUBROUTINE DBP_BE6IN 
C 

C PURPOSE : 

C 

C START THE ENCODING PROCESS NECESSARY TO BUILD 
C A CONNAND BLOCK FOR PASSAGE TO THE DBP 
C 

C ARGUMENTS : 

C 

C NONE 
C 

C DATE 5 
C 

C APRIL 2»1983 
C 

C 

BYTE BUILT_MODULE( 1024 ) 

INTEGER*4 CURRENT-OFFSET 

COMMON/OFFSETCOM/ BUILT_MODULE»CURRENT_OFFSET 

RESET THE CURRENT OFFSET COUNTER 

CURRENT-OFFSET = 0 
RETURN 
END 
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DBPINT.F0RJ7 


5-JUL-1983 12:25 
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SUBROUTIME DBP-INTEGER( OFFSETf VALUE»LENGTH ) 

PURPOSE : 

TO INSERT A l,2f OR 4 BYTE INTEGER INTO THE COMHAND BLOCK 
BEING CONSTRUCTED. 

ARGUMENTS 

OFFSET - OFFSET FROM START OF THE COMMAND BLOCK 

BEING BUILT. STARTS AT ZERO. 

VALUE - VALUE TO BE INSERTED INTO THE COMMAND BLOCK 

LENGTH “ NUMBER OF BYTES IN INTEGER 'VALUE' 

= l»2f OR 4 

DATE ! 

APRIL 2»1983 


BYTE BYTE_ARRAY(4) 

BYTE BUILT_MODULE( 1024 ) 

INTEGERB4 OFFSET » VALUE »VALUE2»LENGTH»CURRENT_0FFSET 

INTE6ER*4 POSITION 

EtIUI VALENCE! VALUE2»BYTE_ARRAY( 1 ) ) 

COMMON/ OFFSETCOM/ BUILT_MODULE , CURRENT-OFFSET 

VALUE2 = VALUE 

UPDATE THE CURRENT POSITION WITHIN 
THE COMMAND BLOCK 

IF( OFFSET. EQ.-l ) THEN 

POSITION = CURRENT-OFFSET 

ELSE 

POSITION = OFFSET 
ENDIF 

DO 100 1 « 1»LEN6TH 

lO BUILT-MODULE! POSITION+I ) = BYTE_ARRAY!I) 

UPDATE THE OFFSET COUNTER 

CURRENT-OFFSET = POSITION + LENGTH 

RETURN 

END 
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DBPBYTES.F0RJ5 5-JUL-1983 12t25 

SUBROUTINE DBP„BYTES( OFFSET»STRING»LENGTH ) 

C 

C PURPOSE t 
C 

C TO INSERT A CHARACTER STRING OF LENGTH 'LENGTH' INTO 
C THE COHNAND BLOCK BEING CONSTRUCTED 
C 

C ARGUMENTS 
C 

C OFFSET 
C 
C 

C STRING 
C 
C 

C LENGTH 
C 

C DATE J 
C 

C APRIL 2»1983 
C 

BYTE BUILT..HODULE( 1024 > 

INTEGER»4 0FFSET»LEN6TH.CURRENT_0FFSET 
INTEGER*4 POSITION 
CHARACTER* (») STRING 

COMMON/ OFFSETCOM/ BUILT.MODULEi CURRENT-OFFSET 
C 

C UPDATE THE CURRENT POSITION WITHIN 
C THE COMMAND BLOCK 
C 

IF( OFFSET. E8.-1 ) THEN 

POSITION = CURRENT-OFFSET 

ELSE 

POSITION = OFFSET 
ENDIF 
C 

C INSERT THE STRING INTO THE MODULE BEING BUILT 
C 

READ< STRING»100 ) ( BUILT-MODULE( I ) » I=P0SITI0N+1 » 
X POSITION+LENGTH ) 

100 FORMAT( <LEN6TH>A1 ) 

C 

C UPDATE THE OFFSET COUNTER 
C 

CURRENT-OFFSET * POSITION + LENGTH 

RETURN 

END 


- OFFSET FROM START OF THE COMMAND BLOCK 
BEING BUILT, STARTS AT ZERO, 

- CHARACTER STRING TO BE INSERTED INTO THE 
COMMAND BLOCK 

- NUMBER OF BYTES IN CHARACTER STRING. 


Paste 1 
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SUBROUTINE DBP_BITS( BYTE-VALUE ) 


PURPOSE J 

TO 'OR' THE GIVEN BYTE VALUE WITH THE BYTE 
VALUE ALREADY PRESENT 

note: 

C THE CURRENT-OFFSET COUNTER IS NOT INCREMENTED 
C THIS PERMITS MULTIPLE OR'S. WHEN LOGICAL 'OR'ING 
C IS l)ONE» USE ROUTINE 'DBP_BITS_END' 

C 

C 

C ARGUMENTS 

C 

C 

C BYTE-VALUE - BYTE VALUE TO 'OR' 

C 

C DATE : 

C 

C APRIL 2j1983 
C 

0 = = = = = = == = = = = = = = = = =: = = === = = = = = = = = = = = ===========:= = ==== = = = = 

BYTE BUILT_MODULE( 1024 ) 

INTE6ERM CURRENT-OFFSET 
BYTE BYTE-VALUE 

COMMON/ OFFSETCOM/ BUILT-MODULE » CURRENT-OFFSET 
C 

C OR THE GIVEN BYTE WITH THE BYTE ALREADY THERE 
C 

BUILT-M0DULE(CURRENT-0FFSET+1 ) = BUILT.M0DULE(CURRENT..0FFSET+1 ).0R. 
X BYTE-VALUE 

RETURN 
END 
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5-JUL-1983 1252& 
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SUBROUTINE DBP,.BITS_BEGIN( OFFSET ) 


PURPOSE : 


TO INITIALIZE THE GIVEN BYTE WITHIN 'BUILT-MODULE'. 
FUTURE 'OR'ING IS EXPECTED ON THE CURRENT BYTE. 

SO THE CURRENT OFFSET COUNTER IS NOT 
INCREMENTED. 


ARGUMENTS 

OFFSET - OFFSET FROM START OF THE COMMAND BLOCK 

BEING BUILT, STARTS AT ZERO. 


DATE : 

APRIL 2.1983 


BYTE BUILT_MODULE( 1024 ) 

INTEGER*4 OFFSET. CURRENT-OFFSET 
INTEGERt4 POSITION 

COMMON/ OFFSETCOM/ BUILT. MODULE. CURRENT-OFFSET 
C 

C UPDATE THE CURRENT POSITION WITHIN 
C THE COMMAND BLOCK 
C 

IF( OFFSET. EQ.-l ) THEN 

POSITION = CURRENT-OFFSET 

ELSE 

POSITION = OFFSET 
ENDIF 
C 

BUILT_MODULE( POSITION+1 ) = 0 

RETURN 

END 
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SUBROUTINE DBP..BITS_END 
C 

C PURPOSE t 
C 

C SIGNIFIES THAT THE 'OR'ING PROCESS ON THE CURRENT 

C MODULE BYTE IS DONE. TIME TO CONTINUE CONSTRUCTION 

C OF THE REST OF THE MODULE. INCREMENT THE CURRENT 
C OFFSET COUNTER. 

C 

C ARGUMENTS 
C 

C NONE 
C 

C DATE J 

APRIL 2»1983 


BYTE BIJILT-.MODULE( 1024 ) 

INTEGER»4 OFFSET? CURRENT-OFFSET 

COMMON/ OFFSETCOM/ BUILT.MODULE? CURRENT-OFFSET 

CURRENT-OFFSET = CURRENT-OFFSET + 1 

RETURN 

END 
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SUBROUTINE DBP_SEND 
C 

C PURPOSE { 

C 

C SEND THE COMMAND BLOCK TO THE DBF. 

C 

C NOTE } 

C 

C THIS ROUTINE CALLS THE 'SPP' PACKAGE 
C ( SERVICE PORT PROTOCOL ) 

C TO PERMIT HOST-DBP COMMUNICATION 

C 

C ARGUMENTS 
C 

C NONE 
C 

C DATE : 

C 

C APRIL 2fl983 
C 

BYTE BUILT_MODULE( 1024 )fPRBYTES( 1024 ) 

INTE6ERJlt4 CURRENT.OFFSET»TOTAL_BYTESf UNIT 

L0GICAU4 M0RE_T0,..C0MEfDEBU6»PERF_DEBUG 

COMMON/ OFFSETCOM/ BUILT_MODULE»CURRENT_OFFSET 

COMMON/ DEBUGMODE/ DEBUG 

COMMON/ PERFMODE/ PERF-DEBUG 

DATA PERF-DEBUG/. FALSE. /» DEBUG/, FALSE. /flJNIT/6/ 

C 

C 1. SEND THE BUILT COMMAND BLOCK TO THE DBP 
C 2. LOOP TO RECEIVE ALL DBP RESPONSES 
C 
C 

C OUTPUT THE REQUEST BLOCK IF IN DEBUG MODE 
C 

IF< DEBUG ) THEN 
C 

C SET UP ASCII BYTES 
C 

DO 50 I = 1fCURRENT_0FFSET+1 
IF( (BUILT_M0DULE(I).LT.'20'X).0R. 

X <BUILT_M0DULE(I).GT.'7E'X)) THEN 
PRBYTES(I) = “2E'X 
ELSE 

PRBYTES(I) = BUILT_MODULE<I) 

ENDIF 

50 CONTINUE 

WRITE< UNITfIOO ) CURRENT-OFFSET 
100 FORMAT(' == DBP REQUEST =='/' * of bytes is 'iI5f 
X /»' Bate StreBBi {'/ ) 

MULTIPLES = (CURRENT..0FFSET/16)»16 
LEFTOVER = CURRENT-OFFSET - MULTIPLEU 
IF( MULTIPLES. 6T.0 ) THEN 
DO 200 I = 1fMULTIPLE16»16 

WRITE( UNIT»150 ) <BUILT„M0DULE(I1 ) fI1=I » 1+15) » 
X <PRBYTES<I2)»I2=IfI+15) 

150 F0RMAT(16<1X»Z2.2)»2X»16A1) 

200 CONTINUE 

ENDIF 

IF< LEFTOVER. GT.O ) THEN 
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MRITE( UNITr210 ) (BUILT_MODULE< II ) » I1=MULTIPLE16+1 , 
X MULTIPLE16+LEFT0VER) » (PRBYTES( 12) » I2=HULTIPLE16+1 » 

X MULTIPLE16+LEFT0VER) 

210 F0RMAT(<LEFT0VER><lX»Z2.2)f<16-LEFT0VER>(3X)»2Xc 
X <LEFT0VER>A1 ) 

ENDIF 

MRITE< UNIT»2;50 ) 

250 FORHAK/) 

ENDIF 

IF( PERF.DEBUCI ) CALL PRON 

CALL SEND.REQUESK BUILT_MODULE*CURRENT_OFFSET»1»1»1 ) 

FINISHED WITH THIS COMMAND 

9999 RETURN 
END 
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SUBROUTINE DBP_RECV( RESPONSE » TOTAL-BYTES » MORE ) 
C 

C PURPOSE : 

c 

C RECEIVE THE RESPONSE FROM THE DBP 
C 

C NOTE : 

C 

C THIS ROUTINE CALLS THE 'SPP' PACKAGE 
C ( SERVICE PORT PROTOCOL ) 

C TO PERMIT HOST-DBP COMMUNICATION 

C 

C ARGUMENTS 
C 

C RESPONSE - THE BYTE RESPONSE FROM THE DBP 

MORE - = .TRUE. IF THERE IS MORE TO COME 

FROM THE DBP 

- = .FALSE. IF ALL THE DATA FROM THE 
DBP HAS BEEN RECEIVED 


DATE : 

APRIL 20*1983 


BYTE RESPONSE! 1024 )*PRBYTES( 1024 ) 

INTEGER*4 DIO*BIO*PAGE 
INTEGER*4 CURRENT_OFFSET*TOTAL..BYTES*UNIT 
L0GICAL»4 M0RE*DEBU6fPERF_DEBU6 
COMMON/DEBUGMODE/ DEBUG 
COMMON/PERFMODE/ PERF_DFBUG 

DATA PERF-DEBUG/. FALSE. /rDEBUG/. FALSE. /fUNIT/6/ 

CALL RECV_RESPONSE< RESPONSE * TOT Al BYTES* ItMORF ) 

IF( PERF-DEBUG > THEN 
CALL PROFF( CLOCK*CPU*BIO*DIO*PAGE ) 

WRITE(6*10) CLOCK*CPIJ* BIO* DIO* PAGE 
• FORMAT!/' Clock '*F12.5/*' CPU '*F12.5/* 

X ' Buffered I/O count '*16/*' Direct I/O count '*16*/* 
X ' Page Fault count '*16 *//) 

ENDIF 

IF! T0TAL_BYTES.GT.1024 ) THEN 
WRITE! 6*25 ) TOTAL-BYTES 
i FORMAT!' Error* DBP ‘ia«s that it has '* 

X 17*' bates to send back.'* 

X /' This exceeds the limit of 1024.' ) 

GO TO 9999 
ENDIF 

OUTPUT THE RESPONSE IF IN DEBUG MODE 

IF! DEBUG ) THEN 

SET UP ASCII BYTES 

DO 500 I =■ 1*T0TAL_BYTES 
IF! !RESP0NSE!I).LT.'20'X).0R. 

X !RESPONSE!I).GT. '7E'X) ) THEN 
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PRBYTES(I) = '2E'X 
ELSE 

PRBYTES(I) = RESPONSE(I) 

ENDIF 

500 CONTINUE 

MRITE< UNIT»600 ) TOTAL_BYTES 
600 FORMAT!' == DBP RESPONSE =='/' ♦ of bytes is '»I5» 

X /i ' Bate Stream J '/ ) 

MULTIPLES = (T0TAL_BYTES/16)*16 
LEFTOVER = TOTAL-BYTES - MULTIPLF16 
IF( MULTIPLE16.6T»0 ) THEN 
DO 700 I = 1,T0TAL_BYTES»16 
WRITE! UNITf650 ) !RESPONSE! II ) rll = l » 1 + 15) > 

X !PRBYTES!I2)»I2=I*I+15) 

650 F0RMAT!16!lXfZ2.2)f2X*16Al) 

700 CONTINUE 
ENDIF 

IF! LEFTOVER»6T.O ) THEN 

WRITE! UNIT»675 ) !RESPONSE! II ) » I 1=MULTIPLE16+1 . 

X HULTIPLE16+LEFT0VER) » !PRBYTES! 12) » 12=MULTIPLE16+1 f 
X MULTIPLE16+LEFT0VER) 

675 FORMAT!<LEFTOVER>!1X»Z2,2)»<16-LEFTOVER>!3X)»2X.. 

X <LEFT0VER>A1 ) 

ENDIF 

WRITE! UNIT»750 ) 

750 FORMAT!/) 

ENDIF 

C 

C FINISHED WITH THIS COMMAND 
C 

9999 RETURN 
END 
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APPENDIX B - DBPSSP Examples 

program examples are given to aid the reader in evaluating 
A brief trace of the requests and responses is also 
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PROGRAM TESTFOR 
C 

C A FORTRAN EXAMPLE USING THE DBPSSP PRIMITIVE 
C ROUTINES 
C 

BYTE RESPONSE< 1024 ) 

INTEGER*4 BYTES_RECV 
LOGICAL MORE 
C 

CALL IRACE_START< 9 ) 

CALL TRACEON 
CALL INIT-COMM 
C 

C SUBMIT KEYS 'ADMIN' 

C 

CALL I)BP_BEGIN 

CALL DBP_INTEGER( -l»'07'Xfl ) 

CALL DBP„INTEGER( -l»5rl ) 

CALL I)BP_BYTES< -1» 'ADMIN' »5 ) 

CALL DBP_INTEGER< -li'FF'Xfl ) 

CALL DBP_INTE6ER( -Ii'OO'XjI ) 

CALL I)BP_SEND 

CALL DBP_RECV( RESPONSEjBYTES_RECV»MORE ) 
DEFINE DATABASE CALLED 'TESTING' 

CALL DBP.BEGIN 

CALL DBP_INTEGER< -li'AO'Xfl ) 

CALL I)BP_TNTEGER( -1.7.1 ) 

CALL DBP-BYTESL -1. 'TESTING' .7 ) 

CALL DBP„INTEGER< -l.'FF'X.l ) 

CALL DBP_INTEGER< -l.'OO'X.l ) 

CALL DBP.SEND 

CALL riBP_RECV( RESPONSE »BYTES_RECV. MORE ) 

C 

C KEEP DATAEIASE 'TESTING' 

C 

CALL DBP-BEGIN 

CALL. DBP_INTEGER( -l.'64'X.l ) 

CALL DBP.INTEGERL -1.7.1 ) 

CALL DBP_BYTES( -1. 'TESTING' .7 ) 

CALL DBP..INTEGER( -1.7.1 ) 

CALL DBP_BYTES( -1. 'TESTING' .7 ) 

CALL DBP..INTEGER( -l.'FF'X.l ) 

CALL DBP.INTEGERL -l.'OO'X.l ) 

CALL DBP..8END 

CALL DBP_RECV( RESPONSE. BYTES_RECV. MORE ) 

C 

C DEFINE FILE CALLED 'FILEl' 

C 

CALL DBP-BEGIN 

CALL DBP_INTE6ER( -l.'40'X.l ) 

CALL DBP..INTEGER( -1.5.1 ) 

CALL DBP_BYTES( -1. 'FILEl '.5 ) 

CALL DBP-INTEGER< -1.1.1 ) 

CALL DBP_BITS..BEGIN( -1 ) 

CALL DBP-BITS( 'lOOO'X ) 

CALL DBP-BITS-END 

CALL DBP..INTEGER( -1.6.1 ) 

CALL DBP_BYTES< -1. 'DBPSYS' .6 ) 

CALL DBP_INTEGER( -1.2.1 ) 
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CALL DBP_INTEGER( -1»10»2 ) 

CALL DBP_INTEGER( -1»2»1 ) 

CALL DBP_INTEGER( -1»0»2 ) 

CALL DBP-INTEGER( -1»'FF'X»1 ) 

CALL DBP,..INTEGER( -lf'00'X»l ) 

CALL BBP-SEND 

CALL DBP_RECV< RESPONSE»BYTES_RECV.MORE ) 
C 

C DEFINE SCHEMA ON PERMANENT FILE 'FILEl' 

C 

CALL DBP.BEGIN 

CALL DBP_INTEGER< -I.'49'X»1 ) 

CALL OBP.INTEGER< -IfSil ) 

CAIL DBP-BYTES( -1. 'FILEl' »5 ) 

CALL DBP.INTE6ER( -1f1»1 ) 

CALL DBP_BITS_BE6IN( -1 ) 

CALL DBP..BITS( 'OOOO'X ) 

CALL DBP_BITS( 'OOOO'X ) 

CALL nBP..BlTS.„END 
C 

C SCHEMA SPECIFICATION - SET UP AS 

C 


C 

c 

C 

C 

INTI INTEGER!H4 
INT2 INTEGER»4 
INT3 INTEGER»4 



CALL 

DBP_INTEGER( 

-1»0»1 

) 


CALL 

DBP_INTEGER( 

-lr2»l 

) 


CALL 

DBP_INTE6ER( 

-1»20»2 

) 


CALL 

DBP..INTEGER( 

-1»2»1 

) 

C 

CALL 

DBP-INTEGER( 

-1»20»2 

) 

CALL 

DBP-INTE6ER< 

-lr4»l 

) 


CALL 

DBP-BYTES( -1 

f'lNTl' 

>4 ) 


CALI 

DBP- INTEGER! 

-1 » 1 » 1 

) 


CALL 

DBP_BITS_BEGIN( -1 ) 



CALL 

DBP_BITS( 'OOOl'X ) 



CALL 

DBP_B1TS_END 




CALL. 

DBP_INTEGER( 

-1 > i » 1 

) 

r 

CALL 

DBP-INTEGER( 

-lf4»l 

) 

Lr 

CALL 

DBP_INTEGER( 

-1.4»1 

) 


CALL 

DBP-BYTES! -1 

»'INT2' 

f4 ) 


CALL 

DEP_INTEGER( 

-l.lil 

) 


CALL 

DBP_BITS_BEGIN( -1 ) 



CALL 

DBP-BITS! 'OOOl'X ) 



CALL 

DBP..BITS_END 




CALL 

DBP-INTEGER! 

-1»1»1 

) 

r 

CALL 

DBP-INTEGER< 

“1 »4f 1 

) 

L- 

CALL 

DBP_INTE6ER( 

-lf4f 1 

) 


CALL 

DBP_BYTES( -1 

f 'INT3' 

»4 ) 


CALI 

DBP_INTEGER( 

-1»1»1 

) 


CALL 

DBP.BITS-BEGIN! -1 ) 



CALL 

DBP-BITS( 'OOOl'X ) 



CALL 

DBP_BITS_END 




CALL 

DBP-INTEGER! 

-1»1»1 

) 


CALI- 

DBP_INTEGER( 

-lf4»l 

) 

C 

DONE 





CALL 

DBP_INTEGER( 

-If'FF' 

X>1 ) 


CALL 

DBP_INTEGER( 

-If'OO' 

Xfl ) 
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CALL DBP.SEND 

CALL DBP-RECV< RESPONSE»BYTES„RECV»HORE ) 
KEEP FILE 


CALL BBP.BEGIN 

CALL DBP_INTEGER< -liMl'X.l ) 

CALL DBP..INTEGER( ) 

CALL BBP_BYTES< -1*'FILE1'»5 ) 

CALL DBP_INTEGER( -IfSiI ) 

CALL DBP_BYTES( -1»'FILE1'»5 ) 

CALL n8P-INTEGER< ) 

CALL DBP_BYTES< -1» 'TESTING' i7 ) 

CALL DBP_INTEGER( -1»'FF'X»1 ) 

CALL BBP_INTEGER( -1»'00'X»1 ) 

CALL DBP-SEND 

CALL DBP_RECV( RESPONSE »BYTES_RECVv MORE ) 


LIST DATABASE 'TESTING' 


CALL DBP-BE6IN 

CALL DBP_INTEGER< -1»'90'X»1 ) 

CALL. DBP_INTEGER( -1»7»1 ) 

CALL DBP_BYTES< -1» 'TESTING' >7 ) 

CALL DBP„INTEGER( ) 

CALL DBP_INTEGER( -l»'FO'X»l ) 

CALL DBP_INTEGER( -If'FF'Xfl > 

CALL DBP.INTEGERI -1»'00'X»1 ) 

CALL DBP..SEND 

CALL DBP_RECV( RESPONSE»BYTES_RECV»MORE ) 


CALL TRACE.STOP 
CALL TRACEOFF 
CALL EXIT 
END 


25 



TESTPAS.PASJ29 


5-JUL-1983 14:32 


PsiSe 1 


PROGRAM TESTPAS( INPUTfOUTPUT 


<* TEST OF DBPSSP *) 

TYPE LIMIT = ARRAYC 1..1024 3 OF CHARJ 
VAR response: LIMIT} 

TOTAL-BYTES: INTEGER} 
more: BOOLEAN} 

I : INTEGER} 


(4 BBPSSP SUPPORT PROCEDURES - EXTERNAL *) 


PROCEDURE INIT} FORTRAN} 

PROCEDURE START} FORTRAN} 

PROCEDURE TRON} FORTRAN} 

PROCEDURE TROFF} FORTRAN} 

PROCEDURE BITSB} FORTRAN} 

PROCEDURE BITS( BYTEVALUE: INTEGER )} FORTRAN} 
PROCEDURE BITSE} FORTRAN} 

PROCEDURE ASC( ZSTDESCR STRING:PACKED ARRAYCINTEGER3 
OF CHAR} length: INTEGER )} FORTRAN } 
PROCEDURE INTK INTEGER-VALUE: INTEGER )} FORTRAN} 
PROCEDURE INT2< INTEGER-VALUE: INTEGER )} FORTRAN} 
PROCEDURE INT4< INTEGER-VALUE: INTEGER )} FORTRAN} 
PROCEDURE TERMINATE} FORTRAN} 

PROCEDURE SEND} FORTRAN} 

PROCEDURE RECV< VAR RESP0NSE:LIMIT} 

VAR TOTAL-BYTES: INTEGER} 

VAR MORE:BOOLEAN )} FORTRAN} 
PROCEDURE TRACEON} FORTRAN} 

PROCEDURE TRACEOFF} FORTRAN} 


BEGIN 

TRACEON} 

TRON} 

INIT} 

<* SUBMIT KEYS 'ADMIN' ») 

START} 

INTK7)} 

ASC('ADMIN'fS)} 

TERMINATE} 

SEND} 

RECV( RESPONSEfTOTAL-BYTESiMORE )} 

DEFINE DATABASE CALLED 'TESTING' «) 

START} 

INTK96)} 

ASC('TESTING',7)} 

TERMINATE} 

SEND} 

RECV< RESPONSE»TOTAL-BYTES»MORE )} 

(* KEEP DATABASE 'TESTING' ») 
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START} 

INTl(lOO)} 

ASC(' TESTING'! 7)5 
ASC( 'TESTING' f 7)} 

TERMINATE} 

SEND} 

RECV( RESPONSEfTOTAL-BYTESfMORE )} 

(» DEFINE FILE CALLED 'FILEl' ») 

START} 

INTK64)} 

ASC('FILE1'»5)} 

INTKl)} 

BITSB} BITS<8)} BITSE} 

ASC('DBPSYS'*6)} 

INTK2)} 

INT2<1C')} 

INTK2)} 

n:T2(0)} 

TERMINATE} 

SEND} 

RECV< RESPONSE! TOTAL-BYTES » MORE )} 

(* DEFINE SCHEMA ON PERMANENT FILE 'FILE' «) 

START} 

INTK73)} 

ASC('FILE1'»5)» 

INTKl)} 

BITSB} BITS<0)f BITSE} 

SCHEMA SPECIFICATION - SET UP AS 

INTI INTE6ER*4 
INT2 INTEGER44 
INT3 INTE6ER*4 


*) 


INTKO)} 

INTK2) } 

INT2<20)} 

INTK2)} 

INT2<20)} 

ASC<'INT1'»4)} 

INTKl)} 

BITSB} BITS<1)} BITSE} 
INTKl)} 

INTK4)} 

ASC<'INT2'»4)} 

INTKl)} 

BITSB} »ITS<1)} BITSE} 
INTKl)} 

INTK4)} 

ASC<'INT3'»4)} 

INTKl)} 

BITSB} BITSd)} BITSE} 
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INT1(1)» 

INTl(4)f 


TERMINATE? 

SEND? 

RECV( RESPONSEfTOTAL_BYTES»MORE >? 

(* KEEP FILE *) 

START? 

INTK45)? 

ASC('FILEl'f5)? 

ASC('FILEl'f5)? 

ASC<'TESTING'i7)? 

TERMINATE? 

SEND? 

RECV( RESPONSE » TOTAL-BYTES » MORE )? 

(* LIST DATABASE 'TESTING' *) 

START? 

INTK144)? 

ASC<'TESTING'»7)? 

INTKD? 

INTK240)? 

TERMINATE? 

SEND? 

RECV< RESPONSEfTOTAL-BYTESfMORE )? 


END. 


28 



i STESTFOR 

_TTBO} i3l located 
== [IBP REQUEST == 

♦ of bates is 9 
Bate Stream I 

07 05 41 44 4B 49 4E FF 00 ..ADMIN,. 


== DBP RESPONSE == 

4 of bates is 0 
Bate Stream I 


== DBP REQUEST == 

4 of bates is 11 
Bate Stream ♦ 

60 07 54 45 53 54 49 4E 47 FF 00 '.TESTING,, 


== DBP RESPONSE =- 
♦ of bates is 0 
Bate Stream * 


== DBP REQUEST ==-■ 

4 of bates is 19 
Bate Stream 5 

<S4 07 54 45 53 54 49 4E 47 07 54 45 53 54 49 4E d. TESTING. TESTIN 
47 FF 00 G., 


== DBP RESPONSE === 

4 of bates is 0 
Bate Stream * 


== DBP REQUEST == 

4 of bates is 24 
Bate Stream ♦ 

40 05 46 49 4C 45 31 01 00 06 44 42 50 53 59 53 B.FILEl . . .DBPSYS 
02 OA 00 02 00 00 FF 00 


== DBP RESPONSE =* 

4 of bates is 0 
Bate Stream t 


== DBP REQUEST == 

4 of bates is 45 
Bate Stream I 


49 05 46 49 4C 45 31 01 00 00 02 14 00 02 14 00 I.FILEl 
04 49 4E 54 31 01 01 01 04 04 49 4E 54 32 01 01 .INTI.. 
01 04 04 49 4E 54 33 01 01 01 04 FF 00 ...INT3 


INT2.. 
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== DBP RESPONSE =■= 

# of bates is 0 
Bate Stream ! 


== DBP REQUEST == 

# of bates is 23 
Bate Stream i 


A1 05 A6 49 4C 45 31 05 46 49 4C 45 31 07 54 45 A.FILEl »FILE1 »TE 
53 54 49 4E 47 FF 00 STING, » 


== DBP RESPONSE == 
t of bates is 0 
Bate Stream * 


==: DBP REQUEST == 

# of bates is 13 
Bate Stream * 


90 07 54 45 53 54 49 4E 47 01 FO FF 00 ..TESTING.,.. 

== dBp response == 

♦ of bates is 55 
Bate Stream X 


F8 02 90 FO 01 00 01 01 06 00 03 00 00 00 00 07 

54 45 53 54 49 4E 47 01 03 06 00 03 03 00 05 00 TESTING 
05 46 49 4C 45 31 01 00 06 00 03 03 00 05 00 05 .FILEl. 
46 49 4C 45 31 FF 00 B7 F5 2E 00 B7 F5 2E 00 00 FILEl.. 
46 49 4C 45 31 FF 00 FILEl.. 
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35 



1. Report No. 

NASA CR-172172 


2. Government Accetsion No. 


3. Recipient's Catalog No. 


4. Title and Subtitle 

DBPSSP: A DATA BASE PROCESSOR SEMANTICS 

SPECIFICATION PACKAGE 


5. Report Date 

June 1983 


6. Performing Organization Code 


7. Author(s) 

Paul A. Fishwick 


9. Performing Organization Name and Address 

Kentron Technical Center 
Hampton, VA 23666 


12. Sponsoring Agency Name and Address 

National Aeronautics and Space Administration 
Washington, DC 20546 


8. Performing Organization Report No. 


10. Work Unit No. 


11. Contract or Grant No. 

NASI -16000 


13. Type of Report and Period Covered 

Contractor Report 


14. Sponsoring Agency Code 


15. Supplementary Notes 


Langley Technical Monitor: Timothy R. Rau 

Final Report 

16. Abstract 

A Semantics Specification Package (DBPSSP) for the Intel Data Base 
Processor (DBP) is defined. DBPSSP serves as a collection of cross-assembly 
tools that allow the analyst to assemble request blocks on the host computer 
for passage to the DBP. The assembly tools discussed in this report may be 
effectively used in conjunction with a DBP-compatible data communications 
protocol to form a query processor, precompiler, or file management system for 
the database processor. The source modules representing the components of 
DBPSSP are fully commented and included as an appendix to this report. 


17. Key Words (Suggested by Author(s)) 


18. Distribution Statement 


Semantics specification 
Data base machine 
Data base management 


Unclassified - Unlimited 

Subject Category 61 

19. Security Classif. (of this report) 

20. Security Classif. (of this page) 

21. No. of Pages 

22. Price 

Unclassified 

Unclassified 


36 

A03 


N-30S 


For sale by the National Technical Information Service. Springfield. Virginia 22161 




















End of Document 



